home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-03-15 | 1.3 KB | 43 lines | [TEXT/gamI] |
- ;;;Compiles up Thomas1.1
- (set! $path "ZFP 240-Q:Robot Stuff:MacGambit:Thomas 1.1 sources:")
- (set! $files '("poplat"
- "hash"
- "record"
- "msort"
- "dynwind"
- "implementation-specific"
- "support"
- "comp-util"
- "compiler"
- "comp-method"
- "comp-class"
- "comp-sf"
- "comp-exc"
- "class"
- "generic"
- "class-structure"
- "run-top"
- "run-internal"
- "run-methods"
- "run-functions"
- "run-bitstrings"
- "run-collections"
- "run-collections-iterate"
- "run-collections-generic1"
- "run-collections-generic2"
- "run-collections-array"
- "run-collections-deque"
- "run-collections-list"
- "run-collections-range"
- "run-collections-string"
- "run-collections-table"
- "run-collections-vector"
- "run-exceptions"
- "rep"))
-
- (do ((file $files (cdr file)))
- ((null? file))
- (write (car file)) (Newline)
- (compile-file (string-append $path (car file) ".scm")))
-
-